home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 73 / 073.d81 / 4morek boot / 4morek boot.a7ae (.txt)
Encoding:
Commodore BASIC  |  1990-01-01  |  14.0 KB  |  45 lines
  1. 10 poke53281,0:poke53280,0:print"[147][158]";:poke53272,31
  2. 30 ss$="                                        "
  3. 40 fori=1to08:print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next
  4. 50 fori=1to12:print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:next
  5. 60 print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
  6. 70 poke2023,peek(2022):poke56295,peek(56294)
  7. 80 print"[154][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  8. 90 print"[159]                                        ";
  9. 100 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  10. 110 fori=217to242:pokei,peek(i)or128:next
  11. 120 poke214,5:print:fori=1to10:printtab(4)"[221][155]                              [146][221]"
  12. 130 next:poke214,6:poke211,4:sys58732
  13. 140 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  14. 150 printtab(5)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  15. 160 poke214,16:poke211,4:sys58732
  16. 170 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  17. 180 printtab(5)"[145][145][151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":poke214,8:print
  18. 190 a$="[198] [207] [213] [210] [160] [205] [207] [210] [197]   [203]":gosub250:x=peek(214):print"[159]"spc(20-len(a$)/2)a$
  19. 200 poke214,x:print"[145]";:a$="by [210]ick [206]ash":gosub250
  20. 210 a$="[208][213][194][204][201][211][200][197][196][160][207][206][160][204][207][193][196][211][212][193][210][160]#73":gosub250
  21. 220 a$="[211][213][194][211][195][210][201][208][212][201][207][206][211] 1-800-831-2694":gosub250
  22. 230 a$="([195]) 1990 [211]oftdisk":gosub250
  23. 240 goto260
  24. 250 printspc(20-len(a$)/2)"[155]"a$:return
  25. 260 gosub440
  26. 270 poke214,20:poke211,4:sys58732
  27. 280 print"[159]1. [204][207][193][196][160]4 [205][207][210][197][160][203]
  28. 290 [153]"2. (NULL)val(NULL)(NULL)(NULL)(NULL)close(NULL)(NULL)close(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  29. 300 print"3. [197][216][201][212][160][212][207][160][194][193][211][201][195]
  30. 310 [153]""
  31. 320 [158]12288:[161]a$:[139]a$[179]"1"[176]a$[177]"3"[167]320
  32. 330 c[178]1024[170](19[170][197](a$))[172]40[170]5:[129]i[178]c[164]c[170]30:[151]i,[194](i)[176]128:[130]
  33. 340 [145][197](a$)[137]350,360,370
  34. 350 f$[178]"four more boot":[137]380
  35. 360 f$[178]"hello connect":[137]380
  36. 370 [153]"load":[128]
  37. 380 [153]"";:[129]i[178]1[164]18:[153]ss$;:[130]
  38. 390 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]
  39. 400 [159]15,8,15,"r0:"[170]f$[170]"="[170]f$:[132]15,er:[160]15
  40. 410 [139]er[179][177]63[167][153]"":[128]
  41. 420 [153]"stopload"[199](34)f$[199](34)",8"
  42. 430 [151]631,13:[151]632,82:[151]633,213:[151]634,13:[151]198,4:[128]
  43. 440 [151]214,19:[158]58732:[129]i[178]1[164]5
  44. 450 [153]"open                                      ":[130]:[153]"":[142]
  45.